home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 10 (1982-06)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 10 (1982-06)(Softdisk)(Side A).do / JUNE.COVER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  48 lines
  1. 100  REM ***********************
  2. 110  REM * SOFTDISK MAG. COVER *
  3. 120  REM *  V1 #10 JUNE, 1982  *
  4. 130  REM *                     *
  5. 140  REM * PICTURE BY JIM GANZ *
  6. 150  REM *                     *
  7. 160  REM * TEXT GENERATED BY:  *
  8. 170  REM *    "HIGHER TEXT"    *
  9. 180  REM *                     *
  10. 190  REM *  HI-RES SCROLL RTN  *
  11. 200  REM *   BY EDWARD C. SO   *
  12. 210  REM *  FROM "CALL -APPLE" *
  13. 220  REM *  FEB. 1982 VOL 5 #2 *
  14. 230  REM ***********************
  15. 240  TEXT : HOME 
  16. 250  GOSUB 350: PRINT  CHR$(4)"BRUNCOVER.SCROLL"
  17. 260  PRINT  CHR$(4)"BLOADSOFTDISK.COVER.JUNE,A$2000"
  18. 270  VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO VIEW COVER": HTAB 9: PRINT "(PRESS AGAIN TO SCRAM)";
  19. 280  POKE  -16368,0: CALL  -756
  20. 290  POKE  -16300,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0: POKE 230,32
  21. 300 WUN = 1:W91 = 191
  22. 310  CALL  -756: POKE 0,0: POKE 2,0: POKE 3,39: FOR X = 0 TO 51: POKE WUN,W91 -X: & U: NEXT 
  23. 320  HOME : POKE  -16368,0
  24. 330  POKE  -16301,0: VTAB 21: HTAB 11: PRINT "(PLEASE STAND BY...)"
  25. 340  PRINT  CHR$(4)"RUNKICK.IT.OFF"
  26. 350  VTAB 3: INVERSE : FOR X = 0 TO 9: HTAB 11: PRINT  SPC( 29): PRINT : NEXT 
  27. 360 T$ = "SOFTDISK MAGAZETTE"
  28. 370  VTAB 1: HTAB 3: INVERSE : FOR X = 1 TO  LEN(T$): IF X = 9  THEN  CALL  -1036: GOTO 390
  29. 380  PRINT  MID$ (T$,X,1);
  30. 390  CALL  -1036: NEXT 
  31. 400  VTAB 4
  32. 410  HTAB 12: PRINT  CHR$(34)"IF THE SPACE SHUTTLE"
  33. 420  HTAB 12: PRINT "ITSELF IS ANOTHER GIANT"
  34. 430  HTAB 12: PRINT "STEP FOR MANKIND, IT IS"
  35. 440  HTAB 12: PRINT "ALSO A GIANT STEP FOR ANY-"
  36. 450  HTAB 12: PRINT "ONE WHO BELIEVES THERE IS"
  37. 460  HTAB 12: PRINT "A GREAT MARKET FOR MICRO-"
  38. 470  HTAB 12: PRINT "COMPUTERS IN THE INDUSTRIAL"
  39. 480  HTAB 12: PRINT "AND SCIENTIFIC MARKETPLACE." CHR$(34)
  40. 490  NORMAL 
  41. 500  VTAB 14
  42. 510  PRINT "QUOTED FROM DR. JOSEPH WILLSON,         PRESIDENT OF INTERACTIVE STRUCTURES,INC.";
  43. 520  PRINT "IN " CHR$(34)"APPLE" CHR$(34)" MAGAZINE VOL 1 NO. 3."
  44. 530  PRINT 
  45. 540  PRINT "COVER BY:     JIM GANZ                                82 SPRING LANE                          WEST HARTFORD, CONN."
  46. 550  RETURN 
  47. 560  REM 
  48. 570  REM PROGRAM ENDS AT 340